home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / dev / Oberon_Interfaces / Interfaces / RamDrive.mod < prev    next >
Text File  |  1994-03-05  |  621b  |  34 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: RamDrive.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. **   updated for V40.15 by hartmut Goebel
  8. *)
  9. *)
  10.  
  11. MODULE RamDrive;
  12.  
  13. IMPORT e * := Exec;
  14.  
  15. CONST
  16.   ramDriveName * = "ramdrive.device";
  17.  
  18. VAR
  19. (*  You have to put a pointer to the ramdrive.device here to use the ramdrive
  20.  *  procedures:
  21.  *)
  22.  
  23.   base * : e.DevicePtr;
  24.  
  25. (*--- functions in V34 or higher (Release 1.3) ---*)
  26. PROCEDURE KillRAD0 *{base,- 42}(): e.LSTRPTR;
  27.  
  28. (*--- functions in V36 or higher (Release 2.0) ---*)
  29. PROCEDURE KillRAD  *{base,- 48}(unit{0} : LONGINT): e.LSTRPTR;
  30.  
  31. END RamDrive.
  32.  
  33.  
  34.